home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
CODEMARK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-08-01
|
1KB
|
20 lines
{->>>>CodeMark<<<<---------------------------------------------}
{ }
{ Filename : CODEMARK.SRC -- Last Modified 2/14/88 }
{ }
{ This is an INLINE macro that returns a pointer to the code }
{ that comprises the start of the next statement. This }
{ pointer may then be passed to VarDump to display a hexdump }
{ of that region of code. }
{ }
{ From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann }
{ Scott, Foresman & Co., Inc. 1988 ISBN 0-673-38355-5 }
{--------------------------------------------------------------}
FUNCTION CodeMark : Pointer;
INLINE($8C/$CA/ { MOV DX,CS | Put code segment in DX }
$E8/$00/$00/ { CALL 0 | Push next address onto stack }
$58/ { POP AX | Pop address offset (IP) into AX }
$05/$0B/$00); { ADD AX,7 | Increment AX past assignment code }